home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / RAND.N < prev    next >
Text File  |  1995-11-08  |  192b  |  12 lines
  1. Define Rand()
  2. {
  3.     glob^seed = seed = (glob^seed + 1) * 22695477;
  4.     if (seed < 0)
  5.         seed *= -1;
  6.     return seed / 65536;
  7. }
  8. Define Randomize(seed)
  9. {
  10.     glob^seed = seed;
  11. }
  12.